home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / lsp / dbind.lisp < prev    next >
Lisp/Scheme  |  1988-11-16  |  322b  |  16 lines

  1. (in-package 'si)
  2.  
  3. ;(defun joe ()
  4. ;  (dbind ((a) b) (foo) (print (list a b))))
  5.  
  6. (defmacro destructuring-bind
  7.   (al val &body body &aux  *dl* (*key-check* nil)
  8.             (*arg-check* nil) (sym (gensym)))
  9.   (dm-vl al sym t)
  10.   `(compiler::stack-let
  11.      ((,sym (cons nil ,val)))
  12.      (let* (,@ (nreverse *dl*))
  13.        ,@body)))
  14.  
  15.  
  16.